object FEntrada: TFEntrada
  Left = 513
  Top = 259
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = 'Entrada '
  ClientHeight = 192
  ClientWidth = 372
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 372
    Height = 192
    Align = alClient
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 43
      Width = 48
      Height = 16
      Caption = 'Usu'#225'rio'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 191
      Top = 43
      Width = 41
      Height = 16
      Caption = 'Senha'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 8
      Top = 1
      Width = 55
      Height = 16
      Caption = 'Empresa'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Gauge1: TGauge
      Left = 1
      Top = 178
      Width = 370
      Height = 13
      Align = alBottom
      ForeColor = clNavy
      Progress = 0
      Visible = False
    end
    object RxLabel1: TRxLabel
      Left = 3
      Top = 157
      Width = 328
      Height = 14
      Caption = 
        'Carregando as permiss'#245'es da empresa e do usu'#225'rio ...............' +
        '........'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object lbEmpresa: TLabel
      Left = 8
      Top = 17
      Width = 358
      Height = 16
      AutoSize = False
      Caption = 'lbEmpresa'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object lbGrupo: TLabel
      Left = 8
      Top = 83
      Width = 357
      Height = 16
      AutoSize = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object ESenha: TEdit
      Left = 191
      Top = 60
      Width = 175
      Height = 20
      CharCase = ecUpperCase
      Ctl3D = False
      MaxLength = 6
      ParentCtl3D = False
      PasswordChar = '*'
      TabOrder = 2
    end
    object BtnOK: TBitBtn
      Left = 191
      Top = 110
      Width = 85
      Height = 27
      Caption = 'Entrar'
      Default = True
      TabOrder = 3
      OnClick = BtnOKClick
      Glyph.Data = {
        36010000424D3601000000000000760000002800000013000000100000000100
        040000000000C0000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777000007777788777777777777000007777844877777777777000007778
        4444877777777770000077844444487777777770000078444C44448777777770
        00007444C7C444877777777000007C4C777C444877777770000077C77777C444
        877777700000777777777C444877777000007777777777C44487777000007777
        7777777C444877700000777777777777C444877000007777777777777C448770
        000077777777777777C447700000777777777777777C77700000}
    end
    object BtnSair: TBitBtn
      Left = 281
      Top = 110
      Width = 85
      Height = 27
      Cancel = True
      Caption = 'Sair'
      TabOrder = 4
      OnClick = BtnSairClick
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00F7F7
        F700D6D6D600EFEFEF00DEDEDE00DEDEDE00EFEFEF00D6D6D600EFEFEF002121
        08004A4A0000B5B5AD00D6D6D600EFEFEF00FFFFFF00FF00FF00D6D6D600EFEF
        EF00E7E7E700DEDEDE00F7F7F700D6D6D600E7E7E700DEDEDE00DEDEDE004A4A
        0800FFFF00008C8C000084848400DEDEDE00EFEFEF00D6D6D600E7E7E700E7E7
        E700DEDEDE00F7F7F700DEDEDE00EFEFEF00EFEFEF00DEDEDE00F7F7F7004A4A
        0800FFFF00008C8C000052520800A5A5A500E7E7E700F7F7F7004A4A4A004A4A
        4A004A4A4A004A4A4A004A4A4A004A4A4A0042424200F7F7F700D6D6D6004A4A
        0800FFFF00008C8C00007B7B00004A4A0800313131004A4A4A00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00B5B5B500BDBDBD004242420031313100313131004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00393939008C8C8C00393939007B7B7B007B7B7B004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00393931004A4A1000101010007B7B7B007B7B7B004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD0042422100EFEF000094940000636363007B7B7B004242
        0000FFFF000042422100636300004242000063636300BDBDBD00ADADAD003131
        0800212100002121000042420000FFFF0000FFFF000042420000636363004242
        0000FFFF00007B7B00006B6B00004242000063636300BDBDBD008C8C8C00FFFF
        2900FFFFAD00FFFFAD00FFFFAD00FFFFAD00FFFFDE00E7E700004A4A08004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00A5A5A5007B7B
        08007B7B08007B7B08008C8C0800FFFF3900FFFF73005A5A00005A5A5A004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00BDBDBD00ADAD
        AD00ADADAD00ADADAD004A4A2900FFFF0800E7E700005A5A52007B7B7B004242
        0000FFFF00008C8C00007B7B00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00424231006B6B2100212118007B7B7B007B7B7B005A5A
        52009C9C0000D6D600007B7B00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00737373008C8C8C00424242007B7B7B007B7B7B007B7B
        7B00525252009C9C00008C8C00004242000063636300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00424242007B7B7B007B7B7B007B7B
        7B007B7B7B005A5A5200D6D600004A4A000073737300BDBDBD00BDBDBD00BDBD
        BD00BDBDBD00BDBDBD00BDBDBD00BDBDBD00949494008C8C8C008C8C8C008C8C
        8C008C8C8C008C8C8C008C8C8C008C8C8C00B5B5B500BDBDBD00}
    end
    object DBLCBEmpresa: TDBLookupComboBox
      Left = 8
      Top = 17
      Width = 358
      Height = 20
      Ctl3D = False
      KeyField = 'EMP_CODIGO'
      ListField = 'EMP_RAZAO'
      ListSource = DSEmpresa
      ParentCtl3D = False
      TabOrder = 0
    end
    object DBLCBUsuario: TDBLookupComboBox
      Left = 8
      Top = 60
      Width = 175
      Height = 20
      Ctl3D = False
      KeyField = 'USU_CODIGO'
      ListField = 'USU_NOME'
      ListSource = DSUsuario
      ParentCtl3D = False
      TabOrder = 1
    end
    object rgUsuario: TRadioGroup
      Left = 8
      Top = 98
      Width = 177
      Height = 56
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Lembrar Usu'#225'rio'
        'Lembrar Usu'#225'rio e senha'
        'N'#227'o lembrar')
      ParentCtl3D = False
      TabOrder = 5
    end
  end
  object QLibera: TQuery
    DatabaseName = 'base'
    Left = 144
    Top = 24
  end
  object QEmpresas: TQuery
    DatabaseName = 'Base'
    SQL.Strings = (
      'Select Emp_Codigo,Emp_Razao, Emp_estado  from Empresa')
    Left = 152
    Top = 96
  end
  object DSEmpresa: TDataSource
    DataSet = QEmpresas
    OnDataChange = DSEmpresaDataChange
    Left = 264
    Top = 8
  end
  object QUsuario: TQuery
    Active = True
    DatabaseName = 'Base'
    SQL.Strings = (
      'SELECT'
      '*'
      'FROM'
      '  USUARIO'
      '  INNER JOIN NIVEL ON (USUARIO.USU_NIVEL = NIVEL.NIV_CODIGO)'
      'WHERE'
      '  ((USU_ATIVO <> '#39'N'#39') OR (USU_ATIVO IS NULL)) AND'
      '  ((EXCLUIDO <> '#39'S'#39') OR (EXCLUIDO  IS NULL) ) '
      'ORDER BY USU_NOME')
    Left = 80
    Top = 32
  end
  object DSUsuario: TDataSource
    DataSet = QUsuario
    OnDataChange = DSUsuarioDataChange
    Left = 312
    Top = 96
  end
  object ActionList1: TActionList
    Left = 312
    Top = 56
    object Action1: TAction
      Caption = 'entrar'
      ShortCut = 24652
    end
  end
end
